* $Id: pslatex.trm%v 3.50 1993/07/09 05:35:24 woo Exp $
/* GNUPLOT - pslatex.trm */
 * Copyright (C) 1990 - 1993   
 * Permission to use, copy, and distribute this software and its
 * documentation for any purpose with or without fee is hereby granted, 
 * provided that the above copyright notice appear in all copies and 
 * that both that copyright notice and this permission notice appear 
 * in supporting documentation.
 * Permission to modify the software is granted, but not the right to
 * distribute the modified code.  Modifications are to be distributed 
 * as patches to released version.
 * This software  is provided "as is" without express or implied warranty.
 * This file is included by ../term.c.
 * This terminal driver supports:
 *     latex with embedded postscript
 * AUTHORS
 *  George Phillips
 *  Russell Lang
 *  David Kotz
 * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
/* Driver by George Phillips */
#define PSLATEX_XMAX (5*720)
#define PSLATEX_YMAX (3*720)
/* 10 pt char is about 10 pts high (say) */
#define PSLATEX_VCHAR (100)
/* 10 pt char is about 6 pts wide (say) */
#define PSLATEX_HCHAR (60)
static int PSLATEX_angle;
static int PSLATEX_justify;
static int PSLATEX_rotate = TRUE;
struct text_command {
    int x, y, angle, justify;
    char* label;
    struct text_command* next;
static struct text_command* PSLATEX_labels;
PSLATEX_options()
    if (!END_OF_COMMAND) {
	if (almost_equals(c_token, "d$efault")) {
	    ps_color = FALSE;
	    PSLATEX_rotate = TRUE;
	    c_token++;
    }
    if (!END_OF_COMMAND) {
	if (almost_equals(c_token, "c$olor")) {
	    ps_color = TRUE;
	    c_token++;
    }
    if (!END_OF_COMMAND) {
	if (almost_equals(c_token, "m$onochrome")) {
	    ps_color = FALSE;
	    c_token++;
    }
    if (!END_OF_COMMAND) {
	if (almost_equals(c_token, "r$otate")) {
	    PSLATEX_rotate = TRUE;
	    c_token++;
    }
    if (!END_OF_COMMAND) {
	if (almost_equals(c_token, "n$orotate")) {
	    PSLATEX_rotate = FALSE;
	    c_token++;
    }
    sprintf(term_options, "%s %s", ps_color ? "color" : "monochrome",
	PSLATEX_rotate ? "rotate" : "norotate");
PSLATEX_init()
    /* reset PostScript driver variables */
    ps_portrait = TRUE;
    ps_eps = FALSE;
    ps_color = FALSE;
    fprintf(outfile, "%% GNUPLOT: LaTeX picture with Postscript\n");
    fprintf(outfile, "\\setlength{\\unitlength}{0.1bp}\n");
    fprintf(outfile, "\\special{!\n");
    PS_init();
    fprintf(outfile, "}\n");
    PSLATEX_angle = 0;
    PSLATEX_justify = 0;
    PSLATEX_labels = 0;
PSLATEX_scale(xs, ys)
double xs, ys;
    register struct termentry *t = &term_tbl[term];
    t->xmax = (unsigned int)(PSLATEX_XMAX * xs);
    t->ymax = (unsigned int)(PSLATEX_YMAX * ys);
    return TRUE;
PSLATEX_graphics()
    struct termentry *t = &term_tbl[term];
    fprintf(outfile, "\\begin{picture}(%d,%d)(0,0)\n", t->xmax, t->ymax);
    fprintf(outfile, "\\special{\"\n");
    PS_graphics();
    /* thwart the translation done by PS_graphics() */
	fprintf(outfile, "%f %f translate\n",
		-PS_XOFF * (float)PS_SC, -PS_YOFF * (float)PS_SC);
    PSLATEX_labels = (struct text_command *)NULL;
PSLATEX_put_text(x, y, str)
int x, y;
char str[];
    struct text_command* tc;
    /* ignore empty strings */
    if (str[0] == '\0')
	return(0);
    tc = (struct text_command*)alloc(sizeof(struct text_command),"pslatex");
    tc->x = x;
    tc->y = y;
    tc->label = (char *)alloc(strlen(str) + 1,"pslatex");
    strcpy(tc->label, str);
    tc->justify = PSLATEX_justify;
    tc->angle = PSLATEX_angle;
    tc->next = PSLATEX_labels;
    PSLATEX_labels = tc;
PSLATEX_justify_text(mode)
enum JUSTIFY mode;
    PSLATEX_justify = mode;
    return TRUE;
int PSLATEX_text_angle(angle)
int angle;
    /* rotated text is put in a short stack, and optionally uses 
     * postscript specials depending on PSLATEX_rotate */
    PSLATEX_angle = angle;
    return TRUE;
PSLATEX_reset()
PSLATEX_text()
    struct text_command* tc;
    PS_text();
    fprintf(outfile, "}\n");
    for (tc = PSLATEX_labels; tc != (struct text_command*)NULL; tc = tc->next) {
	fprintf(outfile, "\\put(%d,%d){", tc->x, tc->y);
	switch (tc->angle) {
	case 0:
	    switch (tc->justify) {
	    case LEFT:
		fprintf(outfile, "\\makebox(0,0)[l]{%s}", tc->label);
		break;
	    case CENTRE:
		fprintf(outfile, "\\makebox(0,0){%s}", tc->label);
		break;
	    case RIGHT:
		fprintf(outfile, "\\makebox(0,0)[r]{%s}", tc->label);
		break;
	    }
	    break;
	case 1: /* put text in a short stack */
	    if (PSLATEX_rotate) {
	        fprintf(outfile, "%%\n\\special{ps: gsave currentpoint currentpoint translate\n");
	        fprintf(outfile, "270 rotate neg exch neg exch translate}%%\n");
	    }
	    switch (tc->justify) {
	    case LEFT:
		fprintf(outfile, "\\makebox(0,0)[lb]{\\shortstack{%s}}",
			tc->label);
		break;
	    case CENTRE:
		fprintf(outfile, "\\makebox(0,0)[b]{\\shortstack{%s}}",
			tc->label);
		break;
	    case RIGHT:
		fprintf(outfile, "\\makebox(0,0)[lt]{\\shortstack{%s}}",
			tc->label);
		break;
	    }
	    if (PSLATEX_rotate) {
	        fprintf(outfile, "%%\n\\special{ps: currentpoint grestore moveto}%%\n");
	    }
	fprintf(outfile, "}\n");
    }
    while (PSLATEX_labels) {
	tc = PSLATEX_labels->next;
	free(PSLATEX_labels->label);
	free(PSLATEX_labels);
	PSLATEX_labels = tc;
    }
    fprintf(outfile, "\\end{picture}\n");